home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / plotitle.gf < prev    next >
Text File  |  1994-02-16  |  171b  |  11 lines
  1. function plotitle(xl,xr,yb,yt,siz,title)
  2. *
  3. *  plot title
  4. *
  5.   xs=xl+(xr-xl)*0.5
  6.   ys=yt+0.15
  7.   'set strsiz 'siz
  8.   'set string 1 c 6'
  9.   'draw string 'xs' 'ys' 'title
  10. return
  11.